home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / unhang.lha / Unhang / unhang.rexx < prev   
OS/2 REXX Batch file  |  1994-08-06  |  1KB  |  38 lines
  1. /* Unhang A Locked Up Arexx Line by Larry Cloud M3001 */
  2. c=0
  3. call open(file,"doors:unhang/unhang.cfg",'r')
  4. do until eof(file)
  5. c=c+1
  6. name.c=readln(file)
  7. end
  8. call close(file)
  9. do i=1 to c
  10. say i||". "||name.i
  11. end
  12. say" "
  13. say"Enter the number of the door that is currently hung ?"
  14. pull number
  15. say"Enter the line that is hung ?"
  16. pull line
  17. quote=d2c(34)
  18. call open(file,"doors:unhang/temp.rexx",'w')
  19. call writeln(file,"/* Unhanging "||name.number||"  by Larry Cloud  M3001 */")
  20. call writeln(file,"signal on ERROR")
  21. call writeln(file,"options results")
  22. call writeln(file,"DoorName = "||quote||name.number||quote)
  23. call writeln(file,"if( ~show( 'l', 'mebbsarexx.library' ) )then do")
  24. call writeln(file,"  if( ~addlib( 'mebbsarexx.library', 0, -30, 0 ) )then do")
  25. call writeln(file,"    say 'Could not open library' ")
  26. call writeln(file,"    exit 10")
  27. call writeln(file,"  end")
  28. call writeln(file,"end")
  29. call writeln(file,"linenumber="||Line)
  30. call writeln(file,"call exit_Door doorname,linenumber")
  31. call writeln(file,"exit 0")
  32. call writeln(file,"exit")
  33. call close(file)
  34. say"Press return to unhang line..."
  35. pull bs
  36. address command "rx doors:unhang/temp.rexx"
  37. exit
  38.